home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / Font.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  1.6 KB  |  54 lines
  1. pTempVar <- <primitive 110 10 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r55 16r21 16r21 16rFA 16r03 16rBC 16rF2 16r21 16r64 16r21 16r60 \
  4.         16r20 16rF3 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " setFlags: " \
  8.   #( #[ 16r57 16r53 16r21 16r14 16rFA 16r04 16rBC 16rF2 16r21 16r63 16rF5 \
  9.        ] \
  10.     #(  )) >
  11.  
  12. <primitive 112 pTempVar 3  " getFlags " \
  13.   #( #[ 16r56 16r53 16r14 16rFA 16r03 16rBC 16rF1 16r63 16rF3 16rF5] \
  14.     #(  )) >
  15.  
  16. <primitive 112 pTempVar 4  " setStyle: " \
  17.   #( #[ 16r57 16r52 16r21 16r14 16rFA 16r04 16rBC 16rF2 16r21 16r62 16rF5 \
  18.        ] \
  19.     #(  )) >
  20.  
  21. <primitive 112 pTempVar 5  " getStyle " \
  22.   #( #[ 16r56 16r52 16r14 16rFA 16r03 16rBC 16rF1 16r62 16rF3 16rF5] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 6  " setYSize: " \
  26.   #( #[ 16r57 16r51 16r21 16r14 16rFA 16r04 16rBC 16rF2 16r21 16r61 16rF5 \
  27.        ] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 7  " getYSize " \
  31.   #( #[ 16r56 16r51 16r14 16rFA 16r03 16rBC 16rF1 16r61 16rF3 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 8  " setName: " \
  35.   #( #[ 16r57 16r50 16r21 16r14 16rFA 16r04 16rBC 16rF2 16r21 16r64 16r21 \
  36.         16r60 16rF5] \
  37.     #(  )) >
  38.  
  39. <primitive 112 pTempVar 9  " getName " \
  40.   #( #[ 16r56 16r50 16r14 16rFA 16r03 16rBC 16rF1 16r60 16rF3 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 10  " remove " \
  44.   #( #[ 16r54 16r14 16rFA 16r02 16rBC 16rF2 16r5D 16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 98 #Font \
  48.   <primitive 97 #Font #Glyph #AmigaTalk:Intuition/Font.st \
  49.    #(  #name #ySize #style #flags #fontName ) \
  50.    #( #new: #setFlags: #getFlags #setStyle: #getStyle #setYSize: #getYSize #setName:  \
  51.        #getName #remove  ) \
  52.   pTempVar 2 5 >>
  53.  
  54.